Komputer for Alle 2002 #7/K-CD-7-2002.ISO/Tools/K-CS.dcr/00186_Progress bar.ls

Text File | 2002-04-10 | 804 b | 31 lines

property StartTicks

on new me
  cursor(4)
  set StartTicks to the ticks
  set the visible of sprite 60 to 1
  set the visible of sprite 62 to 0
  set the visible of sprite 63 to 0
  set the visible of sprite 64 to 0
  set the visible of sprite 65 to 0
  set the visible of sprite 66 to 0
  set the visible of sprite 67 to 0
  set the visible of sprite 68 to 0
  set the visible of sprite 69 to 0
  set the visible of sprite 70 to 0
  set the visible of sprite 71 to 0
  set the visible of sprite 72 to 0
end

on exitFrame
  set the visible of sprite (((the ticks - StartTicks) / 30) + 62) to 1
  set NewMember to 1198 + ((the ticks - StartTicks) / 30)
  set the memberNum of sprite 60 to NewMember
  updateStage()
  if the ticks > (StartTicks + 360) then
    go(#next)
  else
    go(#loop)
  end if
end